/* GUI CONVERTED from eciq07.p (converter v1.76) Mon Apr  1 22:35:31 2002 */
/* eciq07.p - PCC ITEM SPECIFICATION INQUIRY                                  */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.8 $                                                       */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 8.6    DATE CREATED: 03/31/97   BY: Joe Gawel   *K08X*           */
/* REVISION: 8.6   LAST MODIFIED: 03/31/97   BY: mzv *K0M5*                   */
/* REVISION: 8.6E      LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane         */
/* REVISION: 8.6E      LAST MODIFIED: 08/27/98   BY: *L07Q* gyk               */
/* REVISION: 9.1       LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane  */
/* REVISION: 9.1       LAST MODIFIED: 08/14/00   BY: *N0KW* Jacolyn Neder     */
/* $Revision: 1.8 $    BY: Vivek Dsilva           DATE: 03/18/02  ECO: *N1D0*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}

/* EXTERNAL LABEL INCLUDE */
{gplabel.i}

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE eciq07_p_1 "UOM"
/* MaxLen: Comment: */

&SCOPED-DEFINE eciq07_p_2 "Comments"
/* MaxLen: Comment: */

&SCOPED-DEFINE eciq07_p_3 "Deactivate"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

{ecmtparm.i}

define variable cmmt like mfc_logical no-undo.

FORM /*GUI*/ 
   ecd4_part       colon 30
   pt_desc1                 no-label
   ecd4_routing    colon 30
   ecd4_op         colon 30
   ecd4_sequence   colon 30
   ecd4_attribute  colon 30 format "x(40)"
   ecd4_property   colon 30 format "x(40)"
   ecd4_propertyum colon 30 label {&eciq07_p_1}
   ecd4_testmthd   colon 30
   ecd4_spec_det   colon 30 format "x(40)"
   ecd4__qadc01    colon 30 label {&eciq07_p_3}
   cmmt            colon 30 label {&eciq07_p_2}
with STREAM-IO /*GUI*/  frame ecd4 attr-space side-labels width 80.

/* SET EXTERNAL LABELS */
setFrameLabels(frame ecd4:handle).

for first ecm_mstr
   fields (ecm_nbr)
   where recid(ecm_mstr) = ecm_recid
   no-lock:
end. /* FOR FIRST ecm_mstr */

if not available ecm_mstr
then
   return.

for each ecd4_det
   fields (ecd4_attribute ecd4_cmtindx ecd4_nbr ecd4_op ecd4_part
           ecd4_property ecd4_propertyum ecd4_routing ecd4_sequence
           ecd4_spec_det ecd4_testmthd ecd4__qadc01)
   where ecd4_nbr = ecm_nbr
   no-lock
   by ecd4_part
   by ecd4_routing
   by ecd4_op
   on endkey undo, return with frame ecd4:

   for first pt_mstr
      fields (pt_desc1)
      where pt_part = ecd4_part
      no-lock:
   end.  /* FOR FIRST pt_mstr */

   if available pt_mstr
   then
      display
         pt_desc1
      with frame ecd4 STREAM-IO /*GUI*/ .
   else
      display
         "" @ pt_desc1
      with frame ecd4 STREAM-IO /*GUI*/ .

   display
      ecd4_part
      ecd4_routing
      ecd4_op
      ecd4_sequence
      ecd4_attribute
      ecd4_property
      ecd4_propertyum
      ecd4_testmthd
      ecd4_spec_det
     (if ecd4__qadc01 = "yes"
      then yes
      else no) @ ecd4__qadc01
     (if ecd4_cmtindx <> 0
      then yes
      else no) @ cmmt
   with frame ecd4 STREAM-IO /*GUI*/ .
   down.

   
/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/


end. /* FOR EACH ecd4_det */

hide frame ecd4.
